﻿Public Class Utilidades

    Public Shared Function darFormatoTroquel(ByVal troquel As String) As String

        'Limpiamos el string
        troquel = troquel.Trim

        'recorremos el string agregandole tantos '0' adelante como sea necesario para completar los 7 caracteres de la BD
        While (troquel.Count < 7)
            troquel = troquel.Insert(0, "0")
        End While

        darFormatoTroquel = troquel

    End Function

    Public Shared Function darFormatoCodigoBarra(ByVal codigo As String) As String

        'Limpiamos el string
        codigo = codigo.Trim

        'Recorremos el string agregandole tantos '0' adelante como sea necesario para completar los 13 caracteres de la BD
        While (codigo.Count < 13)
            codigo = codigo.Insert(0, "0")
        End While

        darFormatoCodigoBarra = codigo

    End Function

    Public Shared Function darFormatoDouble(ByVal numero As Double) As String

        'Esta funcion se encarga de darle a un numero decimal el formato 0.00
        darFormatoDouble = Format(numero, "##,##0.00")

    End Function

    Public Shared Function estaVacio(ByVal valor As Object) As Boolean

        Dim vacio As Boolean = False

        'Verifica si el objeto es igual a la cadena ""
        If valor = "" Then
            vacio = True
        End If

        Return vacio
    End Function

    Public Shared Function cambiarPuntoPorComa(ByVal keiascii As Char)

        'Esta funcion se encarga de validar si la tecla presionada des un '.' ...y en caso de que lo sea
        'Se encarga de cambiarlo por una ',' ...esto sirve para cuando una maquina usa decimales con punto o con coma
        If (keiascii = ".") Then
            keiascii = ","
        End If
        cambiarPuntoPorComa = keiascii

    End Function

End Class
